Chart A
#clean the dataset
instacart_clean = instacart |>
select(
user_id,
product_name,
department,
aisle,
add_to_cart_order,
reordered,
order_hour_of_day,
order_dow) |> drop_na()
dept_counts = instacart_clean |>
count(department) |>
arrange(desc(n))
plot_ly(
data = dept_counts,
x = ~reorder(department, n),
y = ~n,
type = "bar",
color = ~department,
colors = "viridis") |>
layout(
title = "Number of Orders by Department",
xaxis = list(title = "Department"),
yaxis = list(title = "Number of Orders"))